sHelp
                                     ABS.PROC
     i   2
   abs.proc
     abs.proc.alt.desc.grps
     abs.proc.can.extent.attr.vals
     abs.proc.can.loc.attrib.vals
     abs.proc.can.status.attr.vals
     abs.proc.description.long
     abs.proc.extent.attributes
     abs.proc.location.attributes
     abs.proc.medicare.edits
     abs.proc.status.attributes
     zcus.effective.dates
     proc.price.table

 Ì     i   2
abs.proc    (main) 
[version,code]
*DRC[djc,drc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 version                     10 FREE     L  ABS.VERSION    djc                                                     
 code                         7 FREE     L                 drc                                                         
 active                       1 YN       L                 *DRC[djc,drc]|0                                             
 can.extent.attrib            3 FREE     L  ABS.PROC.EXT   *DRC[djc,drc]E|0                                        
 can.loc.attrib               3 FREE     L  ABS.PROC.LOC   *DRC[djc,drc]L|0                                        
 can.status.attrib            3 FREE     L  ABS.PROC.ST    *DRC[djc,drc]S|0                                        
 confidential.data            1 YN       L                 *DRC[djc,drc]CF                                             
 descriptor.only              1 YN       L                 *DRC[djc,drc]|2                                             
 id                           7 FREE     L                                                                             
 id.cci                      15 FREE     L                                                                             
 last.update                 50 FREE     L                 *DRC[djc,drc]UPD                                            
 last.user                   10 FREE     L  MIS.USER       *DRC[djc,drc]USR                                        
 location                     1 CHOICE   L                 *DRC[djc,drc]|3                                             
 name                        60 FREE     L                 *DRC[djc,drc]|1                                             
 name.50                     50 FREE     L                 VAL=(@ABS.PROC.name$50)                                     
 name.long                  255 FREE     L                 *DRC[djc,drc]T                                              
 name.real                   60 FREE     L                 VAL=@name$L(@name,"* DO NOT USE *"):"S"                     
 non.or.attributes           10 FREE     L                 *DRC[djc,drc]|5                                             
 or.attributes               10 FREE     L                 *DRC[djc,drc]|4                                             
 other.biliary.tract          1 YN       L                 *DRC[djc,drc]|6                                             
 text.editor                  0 FREE     L                                                                             
 text.editor.view             0 FREE     L                 VAL=%Z.view.text(*DRC[version,code]D,11,4,60,{@Z.color      
                                                           VAL=.labels1,@Z.color.data1},"","",1,"",1)                  
 zcus.description.short      55 FREE     L                 *DRC[djc,drc]ZCUS.UK|3                                      
 zcus.do.not.use.0            0 FREE     L                 *DRC[djc,drc]ZCUS.UK|0                                      
 zcus.do.not.use.2            0 FREE     L                 *DRC[djc,drc]ZCUS.UK|2                                      
 zcus.do.not.use.4            0 FREE     L                 *DRC[djc,drc]ZCUS.UK|4                                      
 zcus.regional.procedure      1 YN       L                 *DRC[djc,drc]ZCUS.UK|1                                      
 Ì      i   2
abs.proc.alt.desc.grps    (alt.desc.grps) 
[version,code, alt.desc.grp]
*DRC[djc,drc]N[drh]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 alt.desc.grp                15 FREE     L  ABS.ALT.DESCGRPdrh                                                     
 alt.desc.grp.name           60 FREE     L                 *DRC[djc,drc]N[drh]|0                                       
 alt.desc.grp.name.50        50 FREE     L                 VAL=(@ABS.PROC.alt.desc.grp.name$50)                        
 Ì      i   2
abs.proc.can.extent.attr.vals    (can.extent.attrib.vals) 
[version,code, can.extent.attrib.val]
*DRC[djc,drc]E[dix]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 can.extent.attrib.val        3 FREE     L  ABS.PROC.EXT   dix                                                     
 can.extent.att.val.desc     60 FREE     L                 VAL=@ABS.PROC.EXT.name[,@can.extent.attrib,can.extent.      
                                                           VAL=attrib.val]                                             
 Ì      i   2
abs.proc.can.loc.attrib.vals    (can.loc.attrib.vals) 
[version,code, can.loc.attrib.val]
*DRC[djc,drc]L[dil]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 can.loc.attrib.val           3 FREE     L  ABS.PROC.LOC   dil                                                     
 can.loc.att.val.desc        60 FREE     L                 VAL=@ABS.PROC.LOC.name[,@can.loc.attrib,@can.loc.attri      
                                                           VAL=b.val]                                                  
 Ì      i   2
abs.proc.can.status.attr.vals    (can.status.attrib.vals) 
[version,code, can.status.attrib.val]
*DRC[djc,drc]S[dis]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 can.status.attrib.val        3 FREE     L  ABS.PROC.ST    dis                                                     
 can.status.att.val.desc     60 FREE     L                 VAL=@ABS.PROC.ST.name[,@can.status.attrib,can.status.a      
                                                           VAL=ttrib.val]                                              
 Ì      i   2
abs.proc.description.long    (description.long) 
[version,code, description.line.no]
*DRC[djc,drc]D[drcLN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 description.line.no            PINT     R                 drcLN                                                       
 description.line            60 FREE     L                 *DRC[djc,drc]D[drcLN]                                       
 Ì      i   2
abs.proc.extent.attributes    (extent.attributes) 
[version,code, extent.attribute,extent.attribute.id]
*DRC[djc,drc]EX[dix,dixID]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 extent.attribute             3 FREE     L  ABS.PROC.EXT   dix                                                     
 extent.attribute.id          3 FREE     L  ABS.PROC.EXT   dixID                                                   
 Ì      i   2
abs.proc.location.attributes    (location.attributes) 
[version,code, location.attribute,location.attribute.id]
*DRC[djc,drc]LC[dil,dilID]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 location.attribute           3 FREE     L  ABS.PROC.LOC   dil                                                     
 location.attribute.id        3 FREE     L  ABS.PROC.LOC   dilID                                                   
 Ì      i   2
abs.proc.medicare.edits    (screen.edits) 
[version,code, screen.edit]
*DRC[djc,drc]SE[dje]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 screen.edit                 10 FREE     L  ABS.SCRN.EDIT  dje                                                     
 screen.edit.check           10 FREE     L                 *DRC[djc,drc]SE[dje]|0                                      
 Ì      i   2
abs.proc.status.attributes    (status.attributes) 
[version,code, status.attribute,status.attribute.id]
*DRC[djc,drc]ST[dis,disID]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 status.attribute             3 FREE     L  ABS.PROC.ST    dis                                                     
 status.attribute.id          3 FREE     L  ABS.PROC.ST    disID                                                   
 Ì      i   2
zcus.effective.dates    (zcus.dates) 
[version,code, zcus.date]
*DRC[djc,drc]ZCUS.DT[dt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.date                    8 DATE     L                 dt                                                          
 zcus.gpfh                    1 YN       L                 *DRC[djc,drc]ZCUS.DT[dt]|1                                  
 zcus.group                  10 FREE     L  WL.PROC.GROUP  *DRC[djc,drc]ZCUS.DT[dt]|0                              
 zcus.required.procedure      7 FREE     L  ABS.PROC       *DRC[djc,drc]ZCUS.DT[dt]|3                              
 zcus.severity               10 FREE     L  WL.PROC.SEVER  *DRC[djc,drc]ZCUS.DT[dt]|2                              
 Ì      i   2
proc.price.table    (zcus.uk.price.table) 
[version,code, zcus.uk.eff.dt]
*DRC[djc,drc]ZCUS.PT[ptD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.uk.eff.dt               8 DATE     L                 ptD                                                         
 zcus.uk.ecr.daycase         10 SMONEY   R                 *DRC[djc,drc]ZCUS.PT[ptD]|2                                 
 zcus.uk.ecr.elect           10 SMONEY   R                 *DRC[djc,drc]ZCUS.PT[ptD]|0                                 
 zcus.uk.ecr.nonelec         10 SMONEY   R                 *DRC[djc,drc]ZCUS.PT[ptD]|1                                 
 zcus.uk.ecr.outpt           10 SMONEY   R                 *DRC[djc,drc]ZCUS.PT[ptD]|3                                 
 zcus.uk.necr.daycase        10 SMONEY   R                 *DRC[djc,drc]ZCUS.PT[ptD]|6                                 
 zcus.uk.necr.elect          10 SMONEY   R                 *DRC[djc,drc]ZCUS.PT[ptD]|4                                 
 zcus.uk.necr.nonelec        10 SMONEY   R                 *DRC[djc,drc]ZCUS.PT[ptD]|5                                 
 zcus.uk.necr.outpt          10 SMONEY   R                 *DRC[djc,drc]ZCUS.PT[ptD]|7                                 
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 abs.proc.alt.desc.grp.index        [alt.desc.grp,version,code]
   alt.desc.grp.index                 *DRCX[drh,djc,drc]

 abs.proc.confid.x                  [version,code]
   confid.x                           *DRCC[djc,drc]

 abs.proc.name.index                [version,name,code,alt.desc.grp]
   name.index                         *DRCA[djc,drcN,drc,drh]